home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g26.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
375b
|
17 lines
100 ' G26 T.WAKAMATSU
110 CLS:PI=3.14159!
120 C(1)=2:C(2)=3:C(3)=1:C(4)=0
130 FOR N=1 TO 4
140 FOR K=3 TO 15
150 F=360/K
160 V=370:W=478
170 FOR I=1 TO K
180 X=100*COS(F*I*PI/180)+V
190 Y=-100*SIN(F*I*PI/180)+W
200 LINE(X,Y)-(V,W),PSET,C(N)
210 V=X:W=Y
220 NEXT I
230 NEXT K
240 FOR D=1 TO 5000:NEXT D
250 NEXT N